80 PRINT"[144]":POKE53280,12:POKE53281,12 100 GOSUB2450 110 SN$="[147]  SNAIL C64 [146]" 120 PRINT"[147]" 130 PRINT"  " 140 PRINT"  SNAIL " 150 PRINT"  " 160 PRINT"  WELCOME TO SNAIL[146] INSTRUCTIONS!" 170 PRINT"  " 180 PRINT" WHAT LEVEL WOULD YOU LIKE?" 190 PRINT" 1.[146] BEGINNER" 200 PRINT" 2.[146] INTERMEDIATE":PRINT" 3.[146] ADVANCED" 210 PRINT 220 PRINT" 4.[146] LOAD  SNAIL [146]" 230 PRINT" YOUR CHOICE (1-4)?" 240 GETZ$:IFZ$=""THEN240 250 WZ=VAL(Z$):IFWZ<1ORWZ>4THEN240 260 IF WZ=4THEN2900 270 ONWZGOSUB330,1120,1770 280 GOTO 120 290 PRINT"" 300 PRINT"  PRESS [146] SPACE BAR  TO CONTINUE! " 310 GETZ$:IFZ$=""THEN310 320 PRINT"[147]":RETURN 330 PRINT"[147]  SNAIL - BEGINNER " 340 PRINT" HELLO, I AM THE SNAIL[146]. YOU CAN" 350 PRINT" SPOT ME ON THE SCREEN BECAUSE I" 360 PRINT" WILL LOOK LIKE THIS: @ " 370 PRINT" LET'S TAKE A LOOK AT SOME BASIC" 380 PRINT" INSTRUCTIONS TO MY WORLD." 390 GOSUB290:PRINT"[147]" 400 PRINT" COMMAND[146]","INSTRUCTION[146]" 410 PRINT" LETTER" 420 PRINT"  D [146]","DRAW, LEAVING A TRAIL" 430 PRINT"  M [146]","MOVE, WITHOUT A TRAIL" 440 PRINT"  J [146]","JOYSTICK OPTION" 450 PRINT"  Q [146]","QUIT, EXPLORING MY WORLD" 460 GOSUB290 470 PRINTSN$:PRINT" LET'S LOOK AT THE DRAW[146] INSTRUCTION." 480 PRINT" BEFORE WE CAN DRAW, WE WILL HAVE" 490 PRINT" TO CHOOSE A TRAIL TYPE[146]." 500 PRINT" THE TYPES OF TRAILS ARE:" 510 PRINT" ([209]) OR (*) OR (+) OR ( )" 520 PRINT" THIS WILL SELECT THE TYPE OF" 530 PRINT" TRAIL I LEAVE ON THE SCREEN." 540 GOSUB290 550 PRINTSN$ 560 PRINT" AFTER YOU HAVE CHOSEN THE TRAIL" 570 PRINT" TYPE, YOU WILL SEE THE WORDS;" 580 PRINT"  WHAT WOULD YOU LIKE TO DO [146] " 590 PRINT" THIS MEANS I AM READY FOR A COMMAND!" 600 PRINT" A COMMAND, SUCH AS;" 610 PRINT" THE LETTER D[146] FOR DRAW[146]." 620 GOSUB290:PRINTSN$ 630 PRINT" ONCE I KNOW WHAT YOU WANT TO DO," 640 PRINT" I WILL THEN NEED TO KNOW IN WHICH" 650 PRINT"  DIRECTION [146] YOU WANT ME TO GO." 660 PRINT" YOU MAY GO:":PRINT"  U [146] UP":PRINT"  D [146] DOWN" 670 PRINT"  R [146] RIGHT":PRINT"  L [146] LEFT" 680 PRINT"  A [146] ANGLE MOVE":GOSUB290:PRINTSN$ 690 PRINT" IF YOU CHOOSE  A [146] I WILL NEED TO" 700 PRINT" KNOW THE ANGLE DIRECTION[146]" 710 PRINT" ANGLE DIRECTION" 720 PRINT" UP & RIGHT PRESS # 1 KEY" 730 PRINT" DOWN & RIGHT PRESS # 3 KEY" 740 PRINT" DOWN & LEFT PRESS # 5 KEY" 750 PRINT" UP & LEFT PRESS # 7 KEY" 760 PRINT" 7 1" 770 PRINT" [205][206]" 780 PRINT" [206][205]" 790 PRINT" 5 3":GOSUB290 800 PRINTSN$:PRINT" ONCE I KNOW WHICH WAY TO GO," 810 PRINT" I WILL NEED TO KNOW HOW FAR[146]." 820 PRINT" I CAN MOVE FROM 1 TO 9 SPACES" 830 PRINT" AT A TIME.":PRINT" SIMPLY TYPE IN THE NUMBER OF" 840 PRINT" MOVES YOU WOULD LIKE ME TO MAKE." 850 GOSUB290 860 PRINTSN$:PRINT" THE MOVE[146] COMMAND IS JUST" 870 PRINT" LIKE THE DRAW[146] COMMAND." 880 PRINT" THE ONLY DIFFERENCE IS THAT WHEN" 890 PRINT" I MOVE[146], I LEAVE NO TRAIL BEHIND":PRINT" ME." 900 PRINT" ALSO, I DO NOT ERASE ANYTHING ON" 910 PRINT" THE SCREEN, WHEN I MOVE.":GOSUB290 920 GOSUB2940 930 PRINTSN$:PRINT" THAT SHOULD BE ENOUGH FOR NOW!" 940 PRINT" YOU KNOW THE OLD SAYING;":PRINT" PRACTICE MAKES PERFECT!" 950 PRINT" BEFORE WE START, WOULD YOU LIKE TO" 960 PRINT" SEE THESE INSTRUCTIONS AGAIN (Y/N)?" 970 GETZ$:IFZ$=""THEN970 980 IFZ$="Y"THEN330 990 IFZ$<>"N"THEN970 1000 PRINT"[147] REMEMBER!" 1010 PRINT"  D [146] TO DRAW" 1020 PRINT"  M [146] TO MOVE" 1030 PRINT"  J [146] JOYSTICK" 1040 PRINT"  Q [146] TO QUIT" 1050 PRINT" IF YOU WISH TO SEE THE COMMANDS" 1060 PRINT" AT ANY TIME, WHILE USING SNAIL," 1070 PRINT" ALL YOU HAVE TO DO IS PRESS THE" 1080 PRINT"  COMMODORE [146] KEY AT THE BOTTOM" 1090 PRINT" LEFT HAND CORNER OF THE KEYBOARD." 1100 PRINT"  HAVE FUN! " 1110 GOSUB290:RETURN 1120 PRINT"[147][158]  SNAIL INTERMEDIATE " 1130 PRINT" YOU HAVE ALREADY LEARNED TO DRAW[146]" 1140 PRINT" AND MOVE[146] IN MY WORLD, NOW," 1150 PRINT" I WOULD LIKE TO SHOW YOU SOME" 1160 PRINT" OTHER THINGS THAT I CAN DO." 1170 PRINT" HERE ARE SOME NEW COMMANDS:" 1180 PRINT" LETTER[146]","INSTRUCTION" 1190 PRINT"  E [146]","ERASE, AS I MOVE" 1200 PRINT"  W [146]","WIPE , ALL TRAILS FROM SCREEN" 1210 PRINT"  S [146]","SELECT, A NEW TRAIL TYPE" 1220 PRINT"  T [146]","TEACH, ME A SERIES OF MOVES" 1230 GOSUB290 1240 PRINTSN$ 1250 PRINT" THE ERASE[146] COMMAND WORKS JUST LIKE" 1260 PRINT" THE MOVE[146] COMMAND, EXCEPT THAT I WILL" 1270 PRINT" ERASE ANY TRAIL IN MY PATH AS I GO!" 1280 GOSUB290 1290 PRINTSN$:PRINT" THE  WIPE [146] COMMAND IS JUST" 1300 PRINT" A QUICK WAY OF ERASING ALL THE TRAILS" 1310 PRINT" IN MY WORLD WITH ONE SHOT." 1320 PRINT" I, THE SNAIL (@), WILL ALSO 1330 [153]" BE CLEARED FROM THE SCREEN,BUT I WILL" 1340 [153]" BE RETURNED WITHIN A FEW SECONDS TO" 1350 [153]" THE SAME SPOT I WAS IN WHEN YOU CALLED" 1360 [153]" THE  WIPE WAIT COMMAND.":[141]290 1370 [153]SN$:[153]" THE  SELECT WAIT COMMAND ALLOWS" 1380 [153]" YOU TO CHANGE THE TRAIL TYPE ANY " 1390 [153]" TIME YOU SEE THE FLASHING 'ACTION'." 1400 [153]" THIS MEANS YOU WILL BE ABLE TO" 1410 [153]" MIX THE TRAIL TYPES ON THE SCREEN." 1420 [153]" YOU WILL ALSO BE ABLE TO CHOOSE" 1430 [153]" A NEW TRAIL COLOR. YOU MAY CHOOSE" 1440 [153]" YWAITELLOW, CWAITYAN, WWAITHITE OR BWAITLACK.":[141]290 1450 [153]SN$:[153]" THE TEACHWAIT COMMAND IS USED TO" 1460 [153]" MAKE ME REMEMBER A SERIES OF DRAWWAIT" 1470 [153]" COMMANDS." 1480 [153]" I CAN BE TAUGHT UP TO 9 DRAW" 1490 [153]" COMMANDS IN A ROW!":[141]290 1500 [153]SN$:[153]" ONCE YOU HAVE ASKED FOR TEACHWAIT," 1510 [153]" I WILL ASK YOU HOW MANY LINESWAIT YOU" 1520 [153]" WISH TO TEACH ME. (UP TO 20)" 1530 [153]" SIMPLY TYPE IN THE NUMBER YOU WISH." 1540 [141]290 1550 [153]SN$:[153]" I WILL THEN ASK YOU FOR THE" 1560 [153]" DIRECTIONWAIT OF LINE # 1, JUST LIKE" 1570 [153]" A NORMAL DRAWWAIT COMMAND." 1580 [153]" THEN, OF COURSE, I WILL ASK YOU" 1590 [153]" HOW FARWAIT TO DRAW THIS LINE." 1600 [153]" I WILL GO THROUGH EACH OF THE LINES" 1610 [153]" EXACTLY THE SAME WAY." 1620 [153]" WHEN I HAVE FINISHED THE LAST LINE," 1630 [153]" I WILL THEN DRAW ALL OF THESE" 1640 [153]" LINES ONE AFTER THE OTHER." 1650 [141]290 1660 [153]SN$:[153]" TIME FOR SOME PRACTICE!" 1670 [153]" DO YOU WISH TO SEE THESE INSTRUCTIONS":[153]" AGAIN (Y/N)?" 1680 [161]X$:[139]X$[178]""[167]1680 1690 [139]X$[178]"Y"[167]1120 1700 [139]X$[179][177]"N"[167]1680 1710 [153]"LOAD"SN$:[153]" REMEMBER:" 1720 [153]"  E WAIT TO ERASE":[153]"  W WAIT TO WIPE" 1730 [153]"  S WAIT TO SELECT A TRAIL" 1740 [153]"  T WAIT TO TEACH ME" 1750 [153]"  Q WAIT TO QUIT" 1760 [153]" HAVE FUN!":[141]290:[142] 1770 [153]"LOAD  SNAIL ADVANCED ":[153]" THERE ARE ONLY TWO INSTRUCTIONS" 1780 [153]" IN THIS LEVEL TO LEARN:" 1790 [153]"  R WAIT RECALL, A SHAPE" 1800 [153]"  T WAIT TURN, A SHAPE" 1810 [153]" LET'S TAKE A LOOK AT THE RECALL":[153]" COMMAND.":[141]290 1820 [153]SN$:[153]" THE RECALLWAIT COMMAND HAS " 1830 [153]" TWO POSSIBLE USES." 1840 [153]" IT CAN BE USED TO MAKE ME MEMORIZE" 1850 [153]" A SERIES OF DRAWWAIT COMMANDS THAT I" 1860 [153]" WILL REMEMBER AS A NAMED SHAPE " 1870 [153]" OR IT CAN ALSO BE USED TO MAKE ME" 1880 [153]" DRAW OUT A SHAPE I HAVE ALREADY" 1890 [153]" LEARNED.":[141]290 1900 [153]SN$:[153]" TO HAVE ME MEMORIZEWAIT A SHAPE," 1910 [153]" YOU MUST FIRST CALL THE RECALLWAIT" 1920 [153]" COMMAND.":[153]" I WILL ASK YOU TO CHOOSE THE SHAPE." 1930 [153]" WE DO THIS WITH THE  F1 WAIT AND THE" 1940 [153]"  F7 WAIT KEYS." 1950 [153]" IF YOU WISH TO SEE ALL THE SHAPES" 1960 [153]" THAT I ALREADY KNOW, PRESS THE  F1 WAIT" 1970 [153]" KEY. TO CHOOSE A SHAPE PRESS  F7 WAIT" 1980 [153]" I CALL EACH SHAPE BY NUMBER." 1990 [153]" AS AN EXAMPLE, LET'S ASK FOR SHAPE" 2000 [153]" NUMBER 1." 2010 [141]290 2020 [153]SN$:[153]" SINCE THERE IS NO SHAPE # 1" 2030 [153]" YET, PRESS THE  F7 WAIT KEY." 2040 [153]" THEN PRESS THE  N WAIT KEY TO" 2050 [153]" NAME THIS SHAPE. TYPE IN THE" 2060 [153]" NAME YOU WISH TO GIVE THIS SHAPE." 2070 [153]" YOU MAY THEN ASK ME TO MEMORIZEWAIT THE " 2080 [153]" SHAPE (PRESS  M WAIT) OR DRAWWAIT (PRESS" 2090 [153]"  D WAIT) A SHAPE I ALREADY KNOW" 2100 [153]" OR  TURN WAIT (PRESS  T WAIT) AN ALREADY" 2110 [153]" LEARNED SHAPE.":[141]290 2120 [153]SN$:[153]" IN THIS CASE, SINCE WE DO NOT" 2130 [153]" HAVE A SHAPE # 1, WE WOULD PRESS  M WAIT" 2140 [153]" TO MEMORIZE THE NEW SHAPE." 2150 [153]" I WILL THEN ASK YOU HOW MANY LINES":[153]" MAKE UP THIS SHAPE." 2160 [153]" JUST LIKE THE TEACHWAIT COMMAND I" 2170 [153]" CAN REMEMBER UP TO 20 LINES IN A ROW." 2180 [153]" I WILL THEN GO THROUGH EACH OF THE" 2190 [153]" SEPERATE LINES AND ASK YOU FOR THE" 2200 [153]" DIRECTIONWAIT AND HOW FARWAIT.":[141]290 2210 [153]SN$:[153]" WHEN I HAVE FINISHED MEMORIZING" 2220 [153]" THE NEW SHAPE, I WILL THEN RETURN YOU" 2230 [153]" TO THE MAIN COMMAND QUESTION." 2240 [153]" IF YOU WISH TO SEE THE SHAPE YOU" 2250 [153]" JUST TAUGHT ME, THEN:" 2260 [153]" CALL THE RECALLWAIT COMMAND" 2270 [153]" ASK FOR SHAPE # 1 WITH  F7 WAIT." 2280 [153]" ASK ME TO DRAWWAIT THE SHAPE." 2290 [153]" YOU MAY ASK ME TO DRAW OUT THIS" 2300 [153]" SHAPE NOW IN THIS WAY AS MANY TIMES" 2310 [153]" AS YOU WISH.":[141]290 2320 [141]2590 2330 [153]SN$:[153]" TIME TO PRACTICE!" 2340 [153]" DO YOU WISH TO SEE THESE" 2350 [153]" INSTRUCTIONS AGAIN (Y/N)?" 2360 [161]X$:[139]X$[178]""[167]2360 2370 [139]X$[178]"Y"[167]1770 2380 [139]X$[179][177]"N"[167]2360 2390 [153]"LOAD"SN$:[153]" REMEMBER:" 2400 [153]"  R WAIT TO RECALL A SHAPE" 2410 [153]"  M WAIT TO MEMORIZE ONE OR" 2420 [153]"  D WAIT TO DRAW IT OR" 2430 [153]"  T WAIT TO TURN AND/OR REPEAT" 2440 [153]" HAVE FUN!":[141]290:[142] 2450 [153]"LOAD 2460 PRINT" 2470 [153]" (null)(null)(null)(null)(null)(null) 2480 PRINT" [206] [210][210][210][210] [205] 2490 [153]" (null) (null) (null) (null)(null) (null) (null) 2500 PRINT" [205] [206] [206] [206] [205] [205] [205] 2510 [153]" (null) (null) (null) (null) (null)(null) (null) (null) (null) 2520 PRINT" [213][195][201][206] [205] [205] [205][206] [206] [206] [206] 2530 [153]" MID$LEN(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)>>> 2540 PRINT" 2550 [153]" S N A I L 2560 PRINT" 2570 [153]" R. PRACHUN 1982 2580 FORI=1TO2000:NEXTI:RETURN 2590 REM * REPEAT AND TURN * 2600 PRINTSN$:PRINT" YOU MAY ALSO HAVE ME  TURN [146] THE" 2610 PRINT" SHAPE YOU JUST TAUGHT ME. PRESS THE" 2620 PRINT"  T [146] KEY.":PRINT" I WILL THEN ASK YOU THE NUMBER OF" 2630 PRINT" DEGREES YOU WISH TO TURN THE SHAPE." 2640 PRINT" YOU MAY TURN IT 45, 90 OR 180 DEGREES" 2650 PRINT" TO THE RIGHT." 2660 PRINT"  NOTE [146]: DIAGONAL LINES WILL NOT" 2670 PRINT" BE AS EXPECTED DUE TO THE " 2680 PRINT" DIFFERENCES IN LENGTHS BETWEEN " 2690 PRINT" DIAGONALS AND VERTICAL OR HORIZONTAL" 2700 PRINT" LINES.":GOSUB290 2710 PRINTSN$:PRINT" I WILL THEN ASK YOU IF YOU WISH TO" 2720 PRINT"  REPEAT [146] THIS PATTERN OF TURNED" 2730 PRINT" SHAPES. YOU NEED ANSWER ONLY  Y [146]ES " 2740 PRINT" OR  N [146]O." 2750 PRINT" IF YOU ANSWER NO, I WILL THEN DRAW" 2760 PRINT" OUT THE SHAPE ONLY ONCE, BUT IT WILL" 2770 PRINT" BE TURNED TO THE RIGHT THE NUMBER OF" 2780 PRINT" DEGREES YOU SAID.":GOSUB290 2790 PRINTSN$:PRINT" IF YOU ANSWER YES, THEN I WILL" 2800 PRINT" ASK HOW MANY REPEATS ARE TO BE MADE." 2810 PRINT" YOU MAY ASK FOR UP TO 9 CONTINUOUS" 2820 PRINT" REPEATS OF THESE TURNED SHAPE DRAWING" 2830 PRINT" PATTERNS." 2840 PRINT"  NOTE [146]: I WILL REMEMBER THE LAST" 2850 PRINT" ANGLE GIVEN TOO ME FOR THE NEXT TIME" 2860 PRINT" YOU ASK ME TO TURN A SHAPE, HOWEVER," 2870 PRINT" THE  DRAW [146] OPTION OF THE  RECALL [146]" 2880 PRINT" COMMAND WILL ALWAYS DRAW OUT THE" 2890 PRINT" ORIGINAL UNTURNED SHAPE.":GOSUB290:RETURN 2900 PRINT"[147]" 2910 PRINT"LOAD"CHR$(34)"SNAIL.C64"CHR$(34)",8" 2920 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]" 2930 POKE631,13:POKE632,13:POKE198,2:END 2940 PRINTSN$ 2950 PRINT" THE JOYSTICK OPTION,  J [146] MEANS" 2960 PRINT" YOU CAN USE A JOYSTICK TO DRAW WITH." 2970 PRINT" BE SURE THE JOYSTICK IS PLUGGED INTO" 2980 PRINT" PORT #2!" 2990 PRINT" TO GO BACK TO THE MAIN COMMANDS," 3000 PRINT" PRESS THE FIRE BUTTON ON THE JOYSTICK!":GOSUB290:RETURN